home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Functions & Programs / •Gadgets / drawing macros / spring < prev    next >
Text File  |  1996-06-01  |  1KB  |  50 lines
  1. {
  2.     This program draws a spring-like symbol at the last clicked
  3.     point in the drawing window.
  4.     
  5.     This program does not bring up any dialog box. The dimensions of the
  6.     "spring" and its orientation are set in the procedure initialize, below.
  7.     
  8.     To use the program, hit cmd-L (or click the Add button), look at its 
  9.     keyboard equivalent in the Misc menu, clik in the drawing window, 
  10.     and run the program. Then click somewhere else and run the program again. 
  11. }
  12.  
  13.  
  14. program drawSpring;
  15. var ang,h,v, Len,width,periodLength:real;
  16.     i,numPeriods:integer;
  17.  
  18. procedure initialize;
  19. begin
  20.         Len:=10;                                { the length of the two lines at the beginning and end of the "spring" }
  21.         width:=10;                        { the lateral width }
  22.         periodLength:=5;                        { the repetition length  }
  23.         ang:=30;              { the orientation of the "spring" in degrees }
  24.         numPeriods:=7;                 { how many times the basic element is repeated }
  25.         
  26.         ang:=ang*pi/180;         { move to radians}
  27. end;
  28.  
  29. procedure l(x,y:real);
  30. { performs a rotation of the coordinates and issues a "line" command }
  31. begin
  32.     line(cos(ang)*x+sin(ang)*y,-sin(ang)*x + cos(ang)*y);
  33. end;
  34.  
  35. begin
  36.         GetClickedCoord(h,v);
  37.   openpoly(0,0);
  38.   moveto(h,v);
  39.   l(Len,0);
  40.   l(periodLength/2,-width/2);
  41.   for i:=1 to numPeriods do
  42.   begin
  43.       l(periodLength,width);
  44.       l(periodLength,-width);
  45.   end;
  46.   l(periodLength,width);
  47.   l(periodLength/2,-width/2);
  48.         l(Len,0);
  49.   closepoly;
  50. end;